load("data/jeunesse/PMI.RData")

#définition des variables des tableaux
PMI <- function(.tbl,geo) {.tbl %>%
    pivot_wider(names_from = ...1) %>% 
    select(-8,-12) %>%
    rename("Taux d'équipement en accueil collectif<sup>1</sup>" = 
             "pour 100 enfants nés au cours des 3 dernières années",
           "Taux de scolarisation des enfants de 2 ans<sup>2</sup>" = 
             "Taux de scolarisation des enfants de 2 ans (Rentrée 2019-2020 pour 100 enfants de 2 ans) (2)") %>%
    mutate(`Taux d'équipement en accueil collectif<sup>1</sup>`=
             round(`Taux d'équipement en accueil collectif<sup>1</sup>`, 1),
           `Taux de scolarisation des enfants de 2 ans<sup>2</sup>`=
             round(`Taux de scolarisation des enfants de 2 ans<sup>2</sup>`, 1),
           Nom=str_to_title(Nom)  )
}

#définition des sources et headers
credits <- function(.tbl){
  .tbl %>% 
    cc_kable(aligne = "crrrrrrcrcrrrr") %>%
    column_spec(c(2,8,10), bold=T) %>%
    add_header_above(c( " "=2,
                        "détail des accueils collectifs"=5,
                        " "=3,
                        "Particuliers employeurs"=2) ) %>%
    footnote(general = "DREES, enquête aide sociale", 
             general_title = "Source : ",
             number = c("pour 100 enfants nés au cours des 3 dernières années \n","Rentrée 2019-2020 pour 100 enfants de 2 ans"),
             footnote_as_chunk = T)  %>%
    scroll_box(height = "800px")
}

#comparaisons (nombre taux et structure)
hPMI <- function(){
  hw_grid(
  tab %>%
    arrange(desc(`Nombre de places en accueil collectif`)) %>%
    hchart("bar", 
           hcaes(x=Nom,y=`Nombre de places en accueil collectif`,
                 color=ifelse(str_detect(Nom,"Bourgogne"),"#6a5acd","#ffd700")),
           showInLegend = T, 
           name = "Ensemble des lieux d'accueil", 
           pointWidth = 20) %>%
    hc_xAxis(title=list(text="")) %>%
    hc_yAxis(title=list(text="Nombre de places en accueil collectif")) %>%
    hc_add_theme(thm) %>%
    hc_exporting(enabled = TRUE, filename = "custom-file-name"),
  
  tab %>%
    arrange(desc(`Taux d'équipement en accueil collectif<sup>1</sup>`)) %>%
    hchart("bar",
           hcaes(x=Nom,y=`Taux d'équipement en accueil collectif<sup>1</sup>`,
                 color=ifelse(str_detect(Nom,"Bourgogne"),"#6a5acd","#ffd700")),
           name="Taux d'accueils collectifs pour 100 enfants", 
           showInLegend = T) %>%
    hc_xAxis(title=list(text="")) %>%
    hc_credits(enabled=T,text="Source") %>%
    hc_add_theme(thm) %>%
    hc_exporting(enabled = TRUE, filename = "custom-file-name"),
  
  tab %>%
    arrange(desc(`Taux d'équipement en accueil collectif<sup>1</sup>`)) %>%
    select(Nom,`Crèches collectives (y compris parentales)`:`Multi-accueil` ) %>%
    pivot_longer(-Nom,names_to = "type") %>%
    hchart("bar",
           hcaes(x=Nom,y=value,group=type),
           showInLegend = T, 
           stacking="percent") %>%
    hc_xAxis(title=list(text="")) %>%
    hc_yAxis(title=list(text="Taux des différentes types d'accueils collectifs")) %>%
    hc_credits(enabled=T,text="Source") %>%
    hc_add_theme(thm) %>%
    hc_exporting(enabled = TRUE, filename = "custom-file-name"),
ncol = 3
    )  
}

#définition des cartes choroplèthes

pal <- colorBin("YlOrBr", domain =0:100 ,bins= c(0,5, 7.5,10, 12.5, 15, 17.5, 20,25, 100) )

carto <- function(.map) {
  .map %>%
    addPolygons(color = "#2F4F4F", weight=2, opacity = 0.8, 
                smoothFactor = 2,
                fillColor = ~pal(`Taux d'accueils collectifs`),
              popup = popupTable(carte@data ,
                                 feature.id=F,row.numbers = F),
             group="taux d'accueils collectifs" ) %>%
  addPolygons(color = "#2F4F4F", weight=2, opacity = 0.8, 
              smoothFactor = 2,
              fillColor = ~pal(`Taux de scolarisation`),
              popup = popupTable(carte@data ,
                                 feature.id=F,row.numbers = F),  
                   group="taux de scolarisation") %>%
  addLegend(pal = pal, values = 0:100,
            position = "bottomright", 
            title = "taux") %>%
  addLayersControl( baseGroups =  c("taux d'accueils collectifs",
                                    "taux de scolarisation"),
                    options = layersControlOptions(collapsed = F,
                                                   autoZIndex = F))  
}


# options(knitr.kable.NA = '')
# options(knitr.table.format = "html")